--Server Alerter by Tyguy
--http://code.google.com/p/tyguy550/
util.AddNetworkString("alertsent")
util.AddNetworkString("alert")

	function Alert(ply, cmd, args)
if not ply:IsAdmin() then return end --change ply:IsAdmin() to ply:IsSuperAdmin() if you want it to be superadmins
if #args != 5 then return
ply:ChatPrint("<R, G, B> <from> <message>")
end

if #args == 5 then 
net.Start("alertsent")
net.Send(ply)

net.Start("alert")
net.WriteString(args[1])
net.WriteString(args[2])
net.WriteString(args[3])
net.WriteString(args[4])
net.WriteString(args[5])
net.Broadcast()
end
end
concommand.Add("alert", Alert)
